home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / delitracker / install-dt_ii < prev    next >
Text File  |  1995-01-01  |  19KB  |  712 lines

  1. ;=============================================================================;
  2. ;
  3. ; $VER: DT_Install 2.0 (15.04.1994)
  4. ;
  5. ; Installation script for DeliTracker 2.0
  6. ; (c) Copyright 1994 by Frank Riffel and Peter Kunath
  7. ;
  8. ;=============================================================================;
  9. ;=============================================================================;
  10. ;=============================================================================;
  11. ;
  12. ; This is a quick description how this script works:
  13. ;
  14. ; 1.INIT_STUFF
  15. ;
  16. ; 2.CHOOSE_DESTINATION
  17. ;     NOVICE: Work:, if mounted, or SYS: if not.
  18. ;     AVERAGE, ADVANCED: ask (Work: suggested)
  19. ;
  20. ; 3.MAIN                         ~ 80K
  21. ;
  22. ; 4.PLAYERS                        ~300K
  23. ;     NOVICE: default players, other in playerstore
  24. ;     AVERAGE, ADVANCED: ask further players to install
  25. ;
  26. ; 5.GENIES                        ~140K
  27. ;     NOVICE: default genies, other in geniestore
  28. ;     AVERAGE, ADVANCED: ask further genies to install
  29. ;
  30. ; 6.AREXX                        ~ 15K
  31. ;     NOVICE: no
  32. ;     AVERAGE, ADVANCED: ask user
  33. ;
  34. ; 7.LIBS                        ~ 40K
  35. ;     NOVICE: install decompression libs
  36. ;     AVERAGE: ask user (suggested)
  37. ;     ADVANCED: ask (may keep older lib versions)
  38. ;
  39. ; 8.DOCS ALL: depending on language            ~100k
  40. ;
  41. ; 9.DEVELOPER_DOCS                    ~160K
  42. ;     NOVICE, AVERAGE: no
  43. ;     ADVANCED: ask user
  44. ;                            ======
  45. ;                        TOTAL     850K
  46. ;=============================================================================;
  47. ; Some initial stuff like kick version check, lanugage selection, ...
  48.  
  49. (if (= @LANGUAGE "english")
  50.  (
  51.   (set def_pat "#?.doc#?")
  52.  
  53.   (set #bad-kick
  54.   (cat "DeliTracker 2.0 will only run under Kickstart 2.04 or above!"
  55.   ))
  56.  
  57.   (set #abort-t
  58.   (cat "Make sure that T: is big enough to hold 500KB."
  59.   ))
  60.  
  61.   (set #abort-no-space
  62.   (cat "You need at least 850.000 Bytes of free store to install DeliTracker II"
  63.   ))
  64.  
  65.   (set #choose-text
  66.   (cat "Please choose a directory where DeliTracker should be installed! A drawer will be created there."
  67.   ))
  68.  
  69.   (set #choose-help
  70.   (cat "In this location a drawer will be created. All files exept the libraries will be installed inside this drawer. The complete installation will require about 1MB of free harddisk space."
  71.   ))
  72.  
  73.   (set #create-maindir
  74.   (cat "Creating DeliTracker directory"
  75.   ))
  76.  
  77.   (set #create-configdir
  78.   (cat "Creating Config directory"
  79.   ))
  80.  
  81.   (set #set-path
  82.   (cat "Setting up configuration path"
  83.   ))
  84.  
  85.   (set #inst-main
  86.   (cat "Installing main program."
  87.   ))
  88.  
  89.   (set #create-docsdir
  90.   (cat "Creating Docs dir"
  91.   ))
  92.  
  93.   (set #inst-docs
  94.   (cat "Installing program documentation"
  95.   ))
  96.  
  97.   (set #ask-xpk
  98.   (cat "Do you whish to install the decompression libraries?"
  99.   ))
  100.  
  101.   (set #xpk-help
  102.   (cat "It's suggested that you install the decompression libraries, even if you currently don't have packed modules!"
  103.   ))
  104.  
  105.   (set #create-comressorsdir
  106.   (cat "Creating Libs:Compressors dir"
  107.   ))
  108.  
  109.   (set #create-playerdir
  110.   (cat "Creating Player dir"
  111.   ))
  112.  
  113.   (set #create-playerstore
  114.   (cat "Creating PlayerStore"
  115.   ))
  116.  
  117.   (set #ask-players
  118.   (cat "Which Players should be activated?"
  119.   ))
  120.  
  121.   (set #ask-additional-players
  122.   (cat "Activate further players ? These players that are not widespread. The average user won' need them to be activated. We suggest that you select 'NO'!"
  123.   ))
  124.  
  125.   (set #ask-players-2
  126.   (cat "Which additional Players should be activated? Think twice before selecting!"
  127.   ))
  128.  
  129.   (set #player-help
  130.   (cat "Select those players you want to be loaded at startup. Please choose only those players you REALY need and you have modules for. All others will be installed in the PlayerStore directory so you may load them later."
  131.   ))
  132.  
  133.   (set #create-geniedir
  134.   (cat "Creating Genie dir"
  135.   ))
  136.  
  137.   (set #create-geniestore
  138.   (cat "Creating GenieStore"
  139.   ))
  140.  
  141.   (set #ask-genies
  142.   (cat "Which genies should be activated?"
  143.   ))
  144.  
  145.   (set #genie-help
  146.   (cat "All genies that are not activated will be installed in the GenieStore directory. For the further informations about particular genies read genie.doc."
  147.   ))
  148.  
  149.   (set #ask-arexx
  150.   (cat "Do you whish to install ARexx scripts?"
  151.   ))
  152.  
  153.   (set #help-arexx
  154.   (cat "Only choose if you realy use Rexx!"
  155.   ))
  156.  
  157.   (set #create-arexx
  158.   (cat "Creating Arexx dir"
  159.   ))
  160.  
  161.   (set #ask-pdocs
  162.   (cat "Do you whish to install Programming documentation?"
  163.   ))
  164.  
  165.   (set #help-pdocs
  166.   (cat "Only choose if you plan to write your own players or genies."
  167.   ))
  168.  
  169.   (set #create-pdocs
  170.   (cat "Creating Developer dir"
  171.   ))
  172.  
  173.   (set #extract-players
  174.   (cat "Extracting Players"
  175.   ))
  176.  
  177.   (set #extract-genies
  178.   (cat "Extracting Genies"
  179.   ))
  180.  
  181.   (set #extract-arexx
  182.   (cat "Extracting Arexx Scrips"
  183.   ))
  184.  
  185.   (set #extract-docs
  186.   (cat "Extracting Docs"
  187.   ))
  188.  
  189.   (set #extract-libs
  190.   (cat "Extracting Libs"
  191.   ))
  192.  
  193.   (set #extract-pdocs
  194.   (cat "Extracting development stuff"
  195.   ))
  196.    
  197.   (set #final-msg
  198.   (cat "When you start DeliTracker the first time a lot of windows will pop up. Don't close them at the moment! Move them around as you like. Repeat the following steps for each window:\n\n1) Activate the window\n\n2) Set your defaults. You will find various options in the 'Settings' Menu. In particular: If you don't want the window to be opened every time DeliTracker is started turn 'Popup' off (no checkmark).\n\n3) Select 'Save Prefs' form the 'Project' Menu.\n"
  199.   ))
  200.  )
  201. )
  202.  
  203. ; german strings
  204.  
  205. (if (= @LANGUAGE "deutsch")
  206.  (
  207.   (set def_pat "#?.dok#?")
  208.  
  209.   (set #bad-kick
  210.   (cat "DeliTracker 2.0 benötigt mindenstens Kickstart 2.04!"
  211.   ))
  212.  
  213.   (set #abort-t
  214.   (cat "Das T: Verzeichnis muß mindestens 500KB Platz zum Entpacken verschiedener Dateien bieten."
  215.   ))
  216.  
  217.   (set #abort-no-space
  218.   (cat "Sie benötigen mindestens 850.000 Bytes freien Plattenplatz um DeliTracker zu installieren."
  219.   ))
  220.  
  221.   (set #choose-text
  222.   (cat "Bitte wählen Sie das Verzeichniss wohin DeliTracker installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an."
  223.   ))
  224.  
  225.   (set #choose-help
  226.   (cat "Bei der Installation werden alle Dateien, bis auf die Libraries, in dieses Verzeichniss installiert. Die vollständige Installation von DeliTracker belegt auf der Festplatte etwa 1MB."
  227.   ))
  228.  
  229.   (set #create-maindir
  230.   (cat "Erstelle DeliTracker-Verzeichniss"
  231.   ))
  232.  
  233.   (set #create-configdir
  234.   (cat "Erstelle Konfigurations-Verzeichniss"
  235.   ))
  236.  
  237.   (set #set-path
  238.   (cat "Erstelle Pfad-Variable"
  239.   ))
  240.  
  241.   (set #inst-main
  242.   (cat "Installiere Hauptprogramm."
  243.   ))
  244.  
  245.   (set #create-docsdir
  246.   (cat "Erstelle Docs-Verzeichniss"
  247.   ))
  248.  
  249.   (set #inst-docs
  250.   (cat "Installiere Programm Dokumentation"
  251.   ))
  252.  
  253.   (set #ask-xpk
  254.   (cat "Wollen sie die XPK Packer-Libraries installieren?"
  255.   ))
  256.  
  257.   (set #xpk-help
  258.   (cat "Sie sollenten die Packer-Libraries auch dann installieren, wenn Sie (noch) keine gepackten Module besitzen!"
  259.   ))
  260.  
  261.   (set #create-comressorsdir
  262.   (cat "Erstelle Libs:Compressors Unterverzeichniss"
  263.   ))
  264.  
  265.   (set #create-playerdir
  266.   (cat "Erstelle Player-Verzeichniss"
  267.   ))
  268.  
  269.   (set #create-playerstore
  270.   (cat "Erstelle PlayerStore"
  271.   ))
  272.  
  273.   (set #ask-players
  274.   (cat "Welche Player sollen aktiviert werden werden?"
  275.   ))
  276.  
  277.   (set #ask-additional-players
  278.   (cat "Sollen zusätzliche Player aktiviert werden? Hierbei handelt es sich um Player die nicht sehr Verbreitet sind. Der normale Benutzer wird diese Player nicht benötigen. Wir schlagen deshalb vor, das sie mit 'NEIN' fortfahren."
  279.   ))   
  280.  
  281.   (set #ask-players-2
  282.   (cat "Welche zusätzlichen Player sollen bei Programmstart geladen werden?"
  283.   ))
  284.  
  285.   (set #player-help
  286.   (cat "Bitte wählen Sie nur Player für die sie auch Module besitzen. Nicht angewählete Player werden im Playerstore installiert. Sie können diese Player bei Bedarf später immer noch nachladen."
  287.   ))
  288.  
  289.   (set #create-geniedir
  290.   (cat "Erstelle Genie Verzeichniss"
  291.   ))
  292.  
  293.   (set #create-geniestore
  294.   (cat "Erstelle GenieStore"
  295.   ))
  296.  
  297.   (set #ask-genies
  298.   (cat "Welche zusätzlichen Genies sollen bei Programmstart geladen werden?"
  299.   ))
  300.  
  301.   (set #genie-help
  302.   (cat "Alle Genies die nicht aktiviert werden sind im GenieStore zu finden. Weitere Informationen finden Sie in Genies.dok."
  303.   ))
  304.  
  305.   (set #ask-arexx
  306.   (cat "Wollen sie die ARexx scripts installieren?"
  307.   ))
  308.  
  309.   (set #help-arexx
  310.   (cat "Wählen sie diese Option nur wenn sie Arexx auch benutzen."
  311.   ))
  312.  
  313.   (set #create-arexx
  314.   (cat "Erstelle Arexx-Verzeichniss"
  315.   ))
  316.  
  317.   (set #ask-pdocs
  318.   (cat "Wollen sie die Programmierdokumentation installieren?"
  319.   ))
  320.  
  321.   (set #help-pdocs
  322.   (cat "Wählen sie diese Option nur, wenn sie eigene Player oder Genies schreiben wollen. Hinweis: Die Entwicklerdokumentation ist für Assemblerprogramierer gedacht und ist nur in Englisch verfügbar!"
  323.   ))
  324.  
  325.   (set #create-pdocs
  326.   (cat "Erstelle Developer-Verzeichniss"
  327.   ))
  328.  
  329.   (set #extract-players
  330.   (cat "Entpacke Player"
  331.   ))
  332.  
  333.   (set #extract-genies
  334.   (cat "Entpacke Genies"
  335.   ))
  336.  
  337.   (set #extract-arexx
  338.   (cat "Entpacke Arexx Scrips"
  339.   ))
  340.  
  341.   (set #extract-docs
  342.   (cat "Entpacke Dokumentation"
  343.   ))
  344.  
  345.   (set #extract-libs
  346.   (cat "Entpacke Libraries"
  347.   ))
  348.  
  349.   (set #extract-pdocs
  350.   (cat "Entpacke Entwicklungspaket"
  351.   ))
  352.  
  353.   (set #final-msg
  354.   (cat    "Wenn Sie DeliTracker das erste mal starten, werden viele Fenster geöffnet. Verschieben Sie die Windows an eine Position Ihrer Wahl und wiederholen sie folgende Schritte für jedes Fenster:\n\n1) Aktivieren sie das Fenster\n2) Stellen sie die Optionen nach Bedarf ein. Sie finden die Einstellungen im 'Settings' Menü. Wenn sie wünschen, das dieses Fenster nicht bei jedem Start von DeliTracker geöfnet werden soll, schalten sie 'Popup' ab.\n3) Wählen sie den Menüpunkt 'Save Prefs' aus dem 'Project' Menü."
  355.   ))
  356.  
  357.  )
  358. )
  359.  
  360. ; check kick version
  361.  
  362. (if (< (/ (getversion) 65536) 37) (abort #bad-kick))
  363.  
  364. ; say hi 
  365. (welcome)
  366. (complete 0)
  367.  
  368. ;=============================================================================;
  369. ; Choose directory where DeliTracker will be installed.
  370. ; (Check for enough room)
  371. ;
  372. ;(if (exists "ENV:DELICONFIG" (noreq))
  373. ; (abort "The update script ist not finished yet!")
  374. ;)
  375.  
  376. (if (= "RAM" (getdevice "T:"))
  377.  (set freespace (+ (database "total-mem")))
  378.  (set freespace (getdiskspace ("%s:" (getdevice "T:"))))
  379. )
  380. (if (< freespace 500000)
  381.   (abort #abort-t))
  382.  
  383.  
  384. (set @default-dest (getassign "Work" "dva"))
  385. (if (= @default-dest "")
  386.  (set @default-dest "SYS:"))
  387.  
  388. (set @default-dest (askdir
  389.   (prompt #choose-text)
  390.   (help #choose-help)
  391.   (default @default-dest))
  392. )
  393.  
  394.  
  395. (set @default-dest (tackon @default-dest "DeliTracker_II"))
  396.  
  397. (if (NOT (= "RAM" (getdevice @default-dest)))
  398.  (if (> 850000 (getdiskspace ("%s:" (getdevice @default-dest))))
  399.   (abort #abort-no-space)
  400.  )
  401. )
  402.  
  403. (complete 5)
  404.  
  405. ;=============================================================================;
  406. ; Install procedure for DeliTracker itself
  407.  
  408. (copyfiles (source "c/LhX") (dest "T:"))
  409.  
  410. (makedir @default-dest (prompt #create-maindir)(infos))
  411. (makedir (tackon @default-dest "DeliConfig") (prompt #create-configdir))
  412. (copyfiles (prompt #inst-main)
  413.  (source "DeliTracker2")
  414.  (dest @default-dest)
  415.  (optional "fail")
  416.  (infos)
  417. )
  418.  
  419. (complete 10)
  420.  
  421. ;=============================================================================;
  422. ; Installation procedure for players
  423.  
  424. (makedir (tackon @default-dest "DeliPlayers")
  425.  (prompt #create-playerdir)
  426.  (infos)
  427. )
  428.  
  429. (makedir (tackon @default-dest "DeliPlayers/PlayerStore")
  430.  (prompt #create-playerstore)
  431.  (infos)
  432. )
  433.  
  434. (working #extract-players)
  435. (run "T:LhX -x x Files/players.lha T:")
  436.  
  437. (
  438.  (copyfiles (prompt #ask-players)
  439.   (help #player-help)
  440.   (source "T:DeliPlayers/")
  441.   (dest (tackon @default-dest "DeliPlayers"))
  442.   (optional "nofail")
  443.   (confirm "average")
  444.   (files)
  445.   (all)
  446.  )
  447. )
  448.  
  449. (if (= 1 (askbool (prompt #ask-additional-players) (help @help-askbool)))
  450.  (    
  451.   (
  452.    (copyfiles (prompt #ask-players-2)
  453.    (help #player-help)
  454.    (source "T:DeliPlayers/Playerstore")
  455.    (dest (tackon @default-dest "DeliPlayers"))
  456.    (optional "nofail")
  457.    (confirm "average")
  458.    (files)
  459.    (all)
  460.    )
  461.   )
  462.  )
  463. )
  464.  
  465. (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon "T:DeliPlayers/" (fileonly @each-name))))
  466. (foreach (tackon @default-dest "DeliPlayers") "#?" (delete (tackon "T:DeliPlayers/PlayerStore/" (fileonly @each-name))))
  467. (copyfiles (source "T:DeliPlayers/Playerstore")
  468.        (dest (tackon @default-dest "DeliPlayers/PlayerStore"))
  469.        (files)
  470.        (all)
  471. )
  472. (foreach "T:DeliPlayers/Playerstore" "#?" (delete (tackon "T:DeliPlayers/PlayerStore/" (fileonly @each-name))))
  473. (delete "T:DeliPlayers/Playerstore")
  474. (copyfiles (source "T:DeliPlayers") 
  475.        (dest (tackon @default-dest "DeliPlayers/PlayerStore"))
  476.        (files)
  477.        (all)
  478. )
  479. (foreach "T:DeliPlayers" "#?" (delete (tackon "T:DeliPlayers/" (fileonly @each-name))))
  480. (delete "T:DeliPlayers")
  481.  
  482. (complete 65)
  483.  
  484. ;=============================================================================;
  485. ; Installation procedure for genies
  486. ; Install default genies
  487. ; Average, Expert: ask optional genies
  488.  
  489. (makedir (tackon @default-dest "DeliGenies")
  490.  (prompt #create-geniedir)
  491.  (infos)
  492. )
  493.  
  494. (makedir (tackon @default-dest "DeliGenies/GenieStore")
  495.  (prompt #create-geniestore)
  496.  (infos)
  497. )
  498.  
  499. (working #extract-genies)
  500. (run ("T:LhX -x x Files/genies.lha \"%s/\"" @default-dest))
  501.  
  502. ; remove NotePlayers on 68000er Systems that require at least a '020
  503. (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  504.  (
  505.   (delete (tackon @default-dest "DeliGenies/GenieStore/14Bit-NotePlayer"))
  506.   (delete (tackon @default-dest "DeliGenies/GenieStore/ModSave-NotePlayer"))
  507.   (delete (tackon @default-dest "DeliGenies/GenieStore/32Voc-NotePlayerPlus"))
  508.  )
  509. )
  510.  
  511. (
  512.  (copyfiles (prompt #ask-genies)
  513.   (help #genie-help)
  514.   (source (tackon @default-dest "DeliGenies/Geniestore"))
  515.   (dest (tackon @default-dest "DeliGenies"))
  516.   (optional "nofail")
  517.   (confirm "average")
  518.   (files)
  519.   (all)
  520.  )
  521. )
  522.  
  523. (foreach (tackon @default-dest "DeliGenies") "#?" (delete (tackon (tackon @default-dest "DeliGenies/GenieStore/") (fileonly @each-name))))
  524.  
  525. (complete 75)
  526.  
  527. ;=============================================================================
  528. ; Installation procedure for Arexx Scripts
  529.  
  530. (if (< 0 @user-level)
  531.  (if (= 1 (askbool (prompt #ask-arexx) (help #help-arexx)))
  532.   (
  533.    (makedir (tackon @default-dest "Arexx")
  534.     (prompt #create-arexx)
  535.     (infos)
  536.    )
  537.    (working #extract-arexx)
  538.    (run ("T:LhX -x x Files/arexx.lha \"%s/\"" @default-dest))
  539.   )
  540.  )
  541. )
  542.  
  543. (complete 80)
  544.  
  545. ;=============================================================================;
  546. ; Install procedure for the decompression libraries
  547.  
  548. (if (OR (= 0 @user-level) (if (< 0 @user-level) (askbool (prompt #ask-xpk) (help #xpk-help))))
  549.  (
  550.   (makedir "Libs:Compressors" (prompt #create-comressorsdir))
  551.   (working #extract-libs)
  552.   (run "T:LhX -x x Files/libs.lha >NIL: <NIL: T:")  
  553.   (run "T:LhX x Files/xpkSMPL.lha xpkSMPL.library >NIL: <NIL: T:libs/compressors/")
  554.   (run "T:LhX x Files/xpkSHRI.lha xpkSHRI.library >NIL: <NIL: T:libs/compressors/")
  555.   (run "T:LhX x Files/xpkSQSH.lha >NIL: <NIL: T:libs/")
  556.  
  557.   (copylib (prompt "Install xpkmaster.library")
  558.   (source "t:libs/xpkmaster.library")
  559.   (dest "libs:")
  560.   (confirm)
  561.   (optional nofail askuser)
  562.   (help @copylib-help)
  563.   )
  564.  
  565.   (copylib (prompt "Install powerpacker.library")
  566.   (source "T:libs/powerpacker.library")
  567.   (dest "libs:")
  568.   (confirm)
  569.   (optional nofail askuser)
  570.   (help @copylib-help)
  571.   )
  572.  
  573.   ; xpk sub lib's
  574.   
  575.   (copylib (prompt "Install compressors/xpkNUKE.library")
  576.   (source "T:libs/compressors/xpkNUKE.library")
  577.   (dest "libs:compressors/")
  578.   (confirm)
  579.   (optional nofail askuser)
  580.   (help @copylib-help)
  581.   )
  582.  
  583.   (copylib (prompt "Install compressors/xpkSMPL.library")
  584.   (source "T:libs/compressors/xpkSMPL.library")
  585.   (dest "libs:compressors/")
  586.   (confirm)
  587.   (optional nofail askuser)
  588.   (help @copylib-help)
  589.   )
  590.  
  591.   (copylib (prompt "Install compressors/xpkSHRI.library")
  592.   (source "T:libs/compressors/xpkSHRI.library")
  593.   (dest "libs:compressors/")
  594.   (confirm)
  595.   (optional nofail askuser)
  596.   (help @copylib-help)
  597.   )
  598.  
  599.   ; install right version for 680x0 cpu
  600.   (if (OR (= "68000" (database "cpu") (= "68010" (database "cpu"))))
  601.    (copylib (prompt "Install compressors/xpkSQSH.library")
  602.     (source "T:libs/68000/xpkSQSH.library")
  603.     (dest "libs:compressors/")
  604.     (confirm)
  605.     (optional nofail askuser)
  606.     (help @copylib-help)
  607.    )
  608.    (copylib (prompt "Install compressors/xpkSQSH.library")
  609.     (source "T:libs/68020/xpkSQSH.library")
  610.     (dest "libs:compressors/")
  611.     (confirm)
  612.     (optional nofail askuser)
  613.     (help @copylib-help)
  614.    )
  615.   )
  616.  
  617.   ; cleanup temp dir
  618.  
  619.   (foreach "t:libs/compressors" "#?" (delete (tackon "t:libs/compressors/" @each-name) (optional force)))
  620.   (foreach "t:libs/" "#?" (delete (tackon "t:libs/" @each-name) (optional force)))
  621.   (delete "t:libs/68000/xpkSQSH.library")
  622.   (delete "t:libs/68020/xpkSQSH.library")
  623.   (delete "t:libs/68000")
  624.   (delete "t:libs/68020")
  625.   (delete "t:libs")
  626.  
  627.  )
  628. )
  629.  
  630. (complete 90)
  631.  
  632. ;=============================================================================;
  633. ; Install procedure for the documentation files
  634.  
  635. (makedir (tackon @default-dest "Docs")
  636.  (prompt #create-docsdir)
  637.  (infos)
  638. )
  639.  
  640. (working #extract-docs)
  641. (run "T:LhX -x x Files/docs.lha >NIL: <NIL: -x t:")
  642.  
  643. (copyfiles (prompt #inst-docs)
  644.  (source "T:Docs/")
  645.  (dest (tackon @default-dest "Docs"))
  646.  (pattern def_pat)
  647.  (optional "nofail")
  648.  (infos)
  649.  (files)
  650. )
  651.  
  652. ; cleanup temp dir
  653.  
  654. (foreach "t:Docs/" "#?" (delete (tackon "t:Docs/" @each-name) (optional force)))
  655. (delete "t:Docs" (optional force))
  656.  
  657. (complete 95)
  658.  
  659. ;=============================================================================;
  660. ; Installation procedure for Development Documentation
  661.  
  662. (if (= 2 @user-level)
  663.  (if (= 1 (askbool (prompt #ask-pdocs) (help #help-pdocs)))
  664.   (
  665.    (makedir (tackon @default-dest "Developer")
  666.     (prompt #create-pdocs)
  667.     (infos)
  668.    )
  669.    (makedir (tackon @default-dest "Developer/Examples")
  670.     (prompt #create-pdocs)
  671.     (infos)
  672.    )
  673.    (makedir (tackon @default-dest "Developer/Includes")
  674.     (prompt #create-pdocs)
  675.     (infos)
  676.    )
  677.  
  678.    (working #extract-pdocs)
  679.    (run ("T:LhX -x x Files/developer.lha \"%s/\"" @default-dest))
  680.  
  681.    (if (= @language "english")
  682.     (
  683.     (delete (tackon @default-dest "Developer/Developer.dok"))
  684.     (delete (tackon @default-dest "Developer/Developer.dok.info"))
  685.     )
  686.     (
  687.     (delete (tackon @default-dest "Developer/Developer.doc"))
  688.     (delete (tackon @default-dest "Developer/Developer.doc.info"))
  689.     )
  690.    )   
  691.   )
  692.  )
  693. )
  694.  
  695. ;=============================================================================;
  696. ; Set environment variables for configuration path
  697.  
  698. (complete 98)
  699.  
  700. (textfile (prompt #set-path) (dest "ENV:DeliConfig") (append (expandpath (tackon @default-dest "DeliConfig")))) 
  701. (textfile (prompt #set-path) (dest "ENVARC:DeliConfig") (append (expandpath (tackon @default-dest "DeliConfig")))) 
  702.  
  703. ;=============================================================================;
  704. ; Cleanup & tell some important things!
  705.  
  706. (delete "T:LhX")
  707. (complete 99)
  708. (message #final-msg)
  709. (complete 100)
  710. ;=============================================================================;
  711.